home *** CD-ROM | disk | FTP | other *** search
/ ASME's Mechanical Engine…ing Toolkit 1997 December / ASME's Mechanical Engineering Toolkit 1997 December.iso / fea_str / msafe3d2.lzh / SOLVPRNT.BAS < prev   
BASIC Source File  |  1988-02-18  |  995b  |  25 lines
  1. 10 ' Allow the user to align top of page in the printer
  2. 12 PRINT "Make sure the printer is on and the paper is at the top of page.
  3. 14 PRINT "Then press any key to continue."
  4. 16 A$=INKEY$:IF A$="" THEN 16
  5. 20 ' Reset printer to clear any previous settings
  6. 22 LPRINT CHR$(27);"@";
  7. 30 ' Set printer PORT to LPT1: and printer LINE WIDTH to 132 columns
  8. 32 WIDTH "LPT1:",132
  9. 34 PRINT:PRINT "The printer PORT is LPT1:."
  10. 36 PRINT "The LINE WIDTH is set to 132 columns."
  11. 40 ' Set printing MODE to COMPRESSED printing
  12. 42 LPRINT CHR$(15);
  13. 44 PRINT "The COMPRESSED printing MODE has been set."
  14. 50 ' Set PAGE LENGTH to 11 inches
  15. 52 LPRINT CHR$(27);"C";CHR$(0);CHR$(11);
  16. 54 PRINT "The PAGE LENGTH has been set to 11 inches."
  17. 60 ' Set LINE SPACING to 1/8 of an inch
  18. 62 LPRINT CHR$(27);"0";
  19. 64 PRINT "The LINE SPACING has been set to 1/8 of an inch."
  20. 70 ' SKIP 8 lines OVER THE PERFORATIONS
  21. 72 LPRINT CHR$(27);"N";CHR$(8);
  22. 74 PRINT "SKIP 8 lines OVER THE PERFORATIONS."
  23. 80 SYSTEM
  24. 90 END
  25.